REM Aktienberechnungen | Diese Program ist Public Domain
REM Autor: Jakob Woehrle    Talstr. 65    7620 Wolfach/Kirnbach


SCREEN 1,640,256,2,2
WINDOW 1,"BÖRSE V 1.0"

anfang:

CLS

taste$=""
tast$=""
tas$=""

LOCATE 10,8
PRINT "- 1 -  Ankauf"
LOCATE 11,8
PRINT "- 2 -  Verkauf"

taste:
taste$=INKEY$
IF taste$="1" THEN 
  GOTO weiter
ELSEIF taste$="2" THEN
  GOTO weiter
ELSE
  GOTO taste
END IF
SLEEP

weiter:

CLS


LOCATE 6,8
INPUT "Kenn-Nummer : ",n

LOCATE 6,32
INPUT "Bezeichnung : ",a$
  
LOCATE 7,8
INPUT "Kurs        : ",k 

LOCATE 7,32
INPUT "Stückzahl   : ",s

IF taste$="2" THEN
   LOCATE 8,8
   INPUT "Ankaufskurs : ",ank
END IF

ag=2.5

y=s*ank
g=y/100
h=g/4
l=y/100*0.06

kpr=y+g+h+l+ag

ges=k*s

PRINT "       --------------------------------------------------"

IF taste$="1" THEN
LOCATE 9,8
PRINT "Gesamtwert der Aktien              : "ges
ELSE
LOCATE 10,8
PRINT "Gesamtwert der Aktien              : "ges
END IF

PRINT "       --------------------------------------------------"

bp=ges/100
IF bp<5 THEN bp=5

IF taste$="1" THEN
LOCATE 11,8
PRINT "Bankprovision                      : "bp  
ELSE
LOCATE 12,8
PRINT "Bankprovision                      : "bp 
END IF

bus=bp/4

IF taste$="1" THEN
LOCATE 12,8
PRINT "Börsenumsatzsteuer                 : "bus
ELSE
LOCATE 13,8
PRINT "Börsenumsatzsteuer                 : "bus
END IF

mc=ges/100*0.06

IF taste$="1" THEN
LOCATE 13,8
PRINT "Maklercourtage                     : "mc
ELSE
LOCATE 14,8
PRINT "Maklercourtage                     : "mc
END IF

IF taste$="1" THEN
LOCATE 14,8
PRINT "Abwicklungsgebühr                  : "ag
ELSE
LOCATE 15,8
PRINT "Abwicklungsgebühr                  : "ag
END IF

PRINT "       --------------------------------------------------"

IF taste$="1" THEN
   ganzges=ges+bp+bus+mc+ag
   PRINT "       Gesamtkosten der Aktien            : "ganzges
ELSE
   ganzges=ges-bp-bus-mc-ag
   PRINT "       Gesamterlös der Aktien             : "ganzges
END IF

IF taste$="2" THEN
   PRINT "       Kaufpreis                          : "kpr
   PRINT "       --------------------------------------------------"
   gewinn=ganzges-kpr
   PRINT "       Gesamtgewinn der Aktien            : "gewinn
END IF
   
LOCATE 22,25
PRINT "Drucken (+/-) ?"

tast:
tast$=INKEY$
IF tast$="+" THEN
   LPRINT "          Kenn-Nummer             : "n
   LPRINT "          Bezeichnung             :  "a$
   LPRINT "          Kurs                    : "k
   LPRINT "          Stückzahl               : "s
   
   IF taste$="2" THEN
   LPRINT "          Ankaufskurs             : "ank
   END IF
   
   LPRINT "          --------------------------------------"
   LPRINT "          Gesamtwert der Aktien   : "ges
   LPRINT "          --------------------------------------"
   LPRINT "          Bankprovision           : "bp
   LPRINT "          Börsenumsatzsteuer      : "bus
   LPRINT "          Maklercourtage          : "mc
   LPRINT "          Abwicklungsgebühr       : "ag
   LPRINT "          --------------------------------------"

   IF taste$="1" THEN
     LPRINT "          Gesamtkosten der Aktien : "ganzges
   ELSE
     LPRINT "          Gesamtgewinn der Aktien : "ganzges
   END IF

   IF taste$="2" THEN
     LPRINT "          Kaufpreis               : "kpr
     LPRINT "          --------------------------------------"
   gewinn=ganzges-kpr
     LPRINT "          Gesamtgewinn der Aktien : "gewinn
   END IF

   LPRINT:LPRINT
   LOCATE 22,23
   PRINT "                       "
   GOTO ende:
ELSEIF tast$="-" THEN
   LOCATE 22,23
   PRINT "                       "
   GOTO ende
END IF
GOTO tast
SLEEP

ende:
LOCATE 22,30
PRINT "  > taste <"

tas:
tas$=INKEY$
IF tas$<>"" GOTO anfang
GOTO tas
SLEEP